home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok72 / while-interpreter / source / janein.mod < prev    next >
Encoding:
Modula Implementation  |  1993-11-04  |  429 b   |  26 lines
  1.  
  2. IMPLEMENTATION MODULE JaNein;
  3.  
  4. FROM InOut IMPORT Read, WriteLn, WriteString;
  5.  
  6.  
  7. PROCEDURE JaNein() : BOOLEAN;
  8. VAR ch : CHAR;
  9. BEGIN
  10.   WriteString(" (j/n) :");
  11.   ch:=" ";
  12.   WHILE (ch # "j") AND (ch # "J") AND (ch # "n") AND (ch # "N") DO
  13.     Read(ch);
  14.   END;
  15.   IF (ch="j") OR (ch="J") THEN
  16.     WriteString("Ja.");WriteLn;
  17.     RETURN TRUE;
  18.   ELSE
  19.     WriteString("Nein.");WriteLn;
  20.     RETURN FALSE;
  21.   END;
  22. END JaNein;
  23.  
  24. END JaNein.
  25.  
  26.